home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
objovr.zip
/
MAKEOBJ.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-01-04
|
683b
|
26 lines
{$M 1024,0,0}
uses
DOS, OBJTypes;
var
BinaryDataFile : file of OBJitizedDataType;
OBJitizedData : OBJitizedDataType;
I : integer;
begin
writeln ( 'MakeOBJ' );
writeln;
writeln ( 'Generating data to OBJitize ...' );
for I := 1 to Max do
OBJitizedData [ I ] := sqrt ( I );
writeln ( 'Creating data to file ...' );
assign ( BinaryDataFile, 'OBJitize.DAT' );
rewrite ( BinaryDataFile );
write ( BinaryDataFile, OBJitizedData );
close ( BinaryDataFile );
writeln ( 'Executing BinOBJ ...' );
Exec ( 'c:\TP\BinOBJ.EXE', 'OBJitize.DAT OBJitize.OBJ OBJitizedDataLink' );
end.